صفحه ها
دسته
وبلاگ من در بلاگفا
عکس من
وبلاگهاي دوستان
ورودي هاي پنجره اميد
معرفي وب سايت هاي پرطرفدار
سايتهاي دوستان
لينك هاي دسترسي سريع
مطالب من در ثبت مطالب روزانه
آرشیو
آمار وبلاگ
تعداد بازدید : 575161
تعداد نوشته ها : 1492
تعداد نظرات : 394
Rss
طراح قالب
مهدي يوسفي
101. LoadResString هم واسه لود کردن یه Resource رشته هستش.فقط هم آیدی رو نیاز داره.

102. Loc با گرفتن شماره فایل باز شده برای حالت Randomشماره آخرین رکوردی که نوشته یا خونده شده ، برای حالت Binary مکان آخرین بایتی از فایل(Position) که خونده یا نوشته شده و برای ترتیبی مکان بایت فعلی در فایل تقسیم بر 128 رو برمیگردونه.

103. LOF با گرفتن شماره فایل باز شده طول اون رو برمیگردونه.

104. Log تابع لگاریتم هستش البته در مبنای Ln .برای بدست آوردن لگاریتم یک عدد توی مبنای دلخواه از این فرمول استفاده کنین :

Log(x) / Log(n)

مثلا لگاریتم 8 در مبنای 2 :

Debug.Print Log(8)/Log(2) ‘3

105. LTrim (و LTrim$) یه رشته میگیره و هرچی Space سمت چپ رشته باشه رو حذف میکنه و رشته ی جدید رو برمیگردونه مثلا :

Debug.Print “ Visual Basic “ ‘ = “Visual Basic “

106. Mid (و$Mid) واسه جدا کردن یک قسمت از یک رشته هستش.آرگومان اول رشته ی مورد نظره.دومی عددی که جدا کردن از اونجا شروع میشه و سومی هم طول قسمتیه که میخواهیم جدا کنیم و اگه مقدار دهی نکنیمش تابع تا آخر رشته رو در نظر میگیره:

Debug.Print Mid(“Visual Basic”,3,2) ‘su
Debug.Print Mid(“Visual Basic”,3) ‘sual Basic

107. MidB (و MidB$) مثل قبلیه فقط اطلاعات رو بایت به بایت در نظر میگیره و جدا میکنه (نه کاراکتر به کاراکتر).فرقش با Mid مثل فرق InStr با InStrB هستش.توی قسمت InStrB بیشتر در این باره توضیح دادم.

108. Minute یه زمان رو میگیره دقیقه رو ازش جدا میکنه.مثلا (”Minute(“02:15:00برابر 15 هستش.

109. MIRR

110. MkDir واسه درست کردن یه Folder به کار میره که اگه از قبل وجود داشته باشه تابع Error میده.

111. Month یه تاریخ میگیره و ماه رو از اون استخراج میکنه.(به طور عددی البته) مثلا Month(Date()) = 5

112. MonthName عدد یک ماه رو میگیره (1 تا 12) و اسم اون ماه رو برمیگردونه.اگه آرگومان دومش True باشه اسم رو به صورت خلاصه برمیگردونه.مثلا MonthName(10) = Octobr و MonthName(10,True) = Oct

113. Move واسه حرکت دادن فرم توی صفحه بکار میره آرگوما هاش هم مشخص هستن.

114. MsgBox هم یه پیغام توی صفحه نشون میده.آرگومان اول اجباریه و متن اون پیغام هستش.آرگومان بعدی هم مربوط به Options نشون دادن پیغام مثلا نوع آیکن(vbCritical vbExclamation vbInformation vbQuestion) نوع دکمه ها (vbOKCancel vbYesNoCancel vbOKOnly vbAbortRetryIgnore vbRetryCancel vbYesNo vbMsgBoxHelpButton) دکمه های پیشفرض (که Focus بشون داده میشه)

تغییر vbMsgBoxRight vbMsgBoxRtlReading) Alignment) نحوه ی نمایش توی صفحه (vbSystemModal vbApplicationModal) هستش.
آرگومان بعدی عنوان پیغام هستش.بعدی فایل Help مربوط به این پیغام.بعدی هم Context موضوع مورد نظره(توی فایل Help)
مقدار برگشتی تابع هم با توجه به دکمه ای که کاربر فشار داده یکی از مقدار های vbAbort vbRetry vbIgnore vbCancel vbOK vbYes vbNo هستش.

115. NPer

116. NPV

117. Oct (وOct$ ) عدد رو به مبنای هشت میبره مثلا Oct(8) = 10

118. OLEDrag واسه شروع عمل OLE Drag (مثلا مثل وقتی که یکسری فایل رو یک فولد به فولدر دیگه میکشین) برای فرم بکار میره.اگه قبلش از اسم یه شیی دیگه مثلا یه لیست باکس استفاده کرده باشین –مسلما- عمل واسه اون شی انجام میشه منظورم اینه که این فقط مختص فرم نیست.2 تا فرم بسازین.توی دومی 1 تکست باکس درست کنین خصوصیت OLEDropMode مربوط به TextBox رو Manual قرار بدین.توی فرم اول کد زیر رو وارد کنین :

Private Sub Form_Load()
Form2.Show
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
OLEDrag
End Sub

Private Sub Form_OLECompleteDrag(Effect As Long)
MsgBox "Drag completed!"
End Sub

Private Sub Form_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
AllowedEffects = vbDropEffectMove
Data.SetData Me.Caption
End Sub

و توی دومی :

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFText) Then
Text1.Text = Data.GetData(vbCFText)
End If
End Sub

وقتی فرم یک Load میشه فرم 2 هم نشون داده میشه.حالا اگه موس رو روی فرم 1 فشار بدین OLEDrag برای فرم فراخوانی میشه و رویداد OLECompleteDrag اتفاق میفته.طبق کد حالت قابل قبول فقط vbDropEffect)Move) در نظر گرفته میشه.و اطلاعاتی هم که باید از فرم به جای مقصد انتقال پیدا کنه برابر با متن فرم میشه که هر چیزه دیگه ای با فرمت دیگه ای مثل یه فایل هم میتونه باشه.وقتی بدون اینکه دکمه ی موس رو رها کنین اون رو روی TextBox فرم دوم ببرین رویداد OLEDragDrop برای TextBox اتفاق میفته.بعد چک میشه که اگه فرمت اطلاعات متنی بود اطلاعات توی TextBox نشون داده بشه.بعد از رها کردن دکمه ی موس رویداد OLECompleteDrag (تومو شده عمل کشیدن) برای فرم اتفاق میفته و یک پیغام نشون داده میشه.

119. PaintPicture واسه رسم کردن یه عکس روی فرم هست.این تابع مال PictureBox هم هست.
آرگومان اول عکسیه که باید رسم بشه که میتونه عکسی باشه که با LoadPicture لود شده.یا عکس توی یک PictureBox(مثلا Picture1.Picture) .آرگومان دوم و سوم مختصات بالا سمت چپ جایی هستن که قرار عکس اونجا رسم بشه.مثلا اگه 0و0 باشن عکس کاملا توی بالا و سمت چپ فرم قرار میگیره یا اگه 100و20 باشن عکس با سمت چپ فرم 100 و با بالای فرم 20 تا (واحدش بر اساس واحد فرم هستش بطور پیشفرض Twip ) آرگومان های بعدی طول و عرض عکسی هستن که قرار چاپ بشه.اگه مقدار دهیشون نکنین عکس با اندازه ی اصلیش چاپ میشه.دو تا آرگومان بعدی جایی از عکس هستن که عمل رسم شدن باید از اونجا شروع بشه که اگه مثلا 100و100 باشن همه ی عکس روی فرم رسم نمیشه و از عمل رسم از بالا و سمت چپ فرم با مختصات 100و100 شروع میشه . دو تا آرگومان بعدی هم مثل قبلی واسه جدا کردن قسمتی از عکس هستن.این ها طول و عرضی از عکس رو مشخص میکنن که قرار رسم بشه.مثل قبلی ها اگه مقدار دهیشون نکنین (با توجه به 2 تا آرگومان قبلی) همه ی قسمت ها در نظر گرفته میشه.آرگومان آخر هم نحوه ی رسم هست(از نظر رنگ) که میتونه یکی از مقدار های زیر باشه :
vbSrcCopy عکس جدید رو کاملا جایگزین عکس قبلی میکنه یعنی اگه از قبل توی فرم عکسی وجود داشته باشه هیچ
اثری ازش نمیمونه.
vbSrcAnd عکس مبدا و مقصد(در صورت وجود) رو AND میکنه (دو عکس ادغام میشن)
vbNotSrcErase عکس و مبدا و مقصد(در صورت وجود) رو OR میکنه و نتیجه رو Invert میکنه.
vbSrcPaint عکس مبدا و مقصد(در صورت وجود) رو OR میکنه.
vbDstInvert عکس مقصد (در صورت وجود) رو Invert میکنه.
vbSrcInvert عکس مبدا و مقصد(در صورت وجود) رو XOR میکنه.
vbSrcErase عکس مقصد(در صورت وجود) رو Invert (معکوس) میکنه و با عکس مبدا AND میکنه.
vbNotSrcCopy عکس مبدا رو Invert میکنه و کاملا جایگزین عکس مقصد میکنه.

برای اینکه بهتر متوجه بشین همه رو امتحان کنین.

120. Partition چهار تا عدد به عنوان شروع(Start) ،پایان(Stop) فاصله(Intrerval) و عدد مورد نظر(Number) میگیره و یک سیری از اعداد به صورت

Start + (n-1) * Interval تا Start + n * Interval -1 …………… Start + (n-1) * Interval تا Stop

تا رسیدن به مقدار Stop میسازه.مثلا اگه Start=1 , Stop=110 ,Interval=20 اینطوری میشه :

1…20 21…40 41…60 61…80 81…100 101…110

حالا تابع عددی که بش دادیم(Number) رو بررسی میکنه که جزو کدوم یک از این بازه ها(بازه های بسته) هستش.جزو هر کدوم که بود تابع یه رشته به صورت بالاترین عضو : پایین ترین عضو برمیگردونه.مثلا اگه عدد 52 یا 60 باشه تابع مقدار “41:60” رو برمیگردونه.اگه عددی که بش میدیم کمتر از کمترین عضو سری باشه تابع مقدار “ : [Start -1] ” رو برمیگردونه مثلا اینجا برای 3- تابع مقدار “ : 0 ” رو برمیگردونه و اگه بزرگ تر باشه “[Stop + 1] : ” رو برمیگردونه.

پنج شنبه بیست و ششم 10 1387
X